home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1999 April / Cd Pc Users extra 19 abril 1999.iso / Prog / Inst / PCUx19 / Imprimir / frmPrinc.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-03-07  |  5.2 KB  |  169 lines
  1. VERSION 5.00
  2. Begin VB.Form frmPrinc 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Impresi
  5. n desde Visual Basic"
  6.    ClientHeight    =   3075
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   4950
  10.    Icon            =   "frmPrinc.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3075
  15.    ScaleWidth      =   4950
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton cmdSalir 
  18.       Caption         =   "Salir"
  19.       Height          =   375
  20.       Left            =   3360
  21.       TabIndex        =   7
  22.       Top             =   2520
  23.       Width           =   1335
  24.    End
  25.    Begin VB.CommandButton cmdDetener 
  26.       Caption         =   "Detener"
  27.       Height          =   375
  28.       Left            =   1800
  29.       TabIndex        =   3
  30.       Top             =   2520
  31.       Width           =   1335
  32.    End
  33.    Begin VB.CommandButton cmdImprimir 
  34.       Caption         =   "Imprimir"
  35.       Height          =   375
  36.       Left            =   240
  37.       TabIndex        =   2
  38.       Top             =   2520
  39.       Width           =   1335
  40.    End
  41.    Begin VB.Frame Frame1 
  42.       Caption         =   " Datos de impresi
  43.       Height          =   2055
  44.       Left            =   240
  45.       TabIndex        =   4
  46.       Top             =   240
  47.       Width           =   4455
  48.       Begin VB.TextBox txtEncabezados 
  49.          Height          =   285
  50.          Left            =   240
  51.          TabIndex        =   0
  52.          Top             =   600
  53.          Width           =   3975
  54.       End
  55.       Begin VB.TextBox txtLineas 
  56.          Height          =   285
  57.          Left            =   240
  58.          TabIndex        =   1
  59.          Top             =   1440
  60.          Width           =   975
  61.       End
  62.       Begin VB.Label lblTitulo 
  63.          AutoSize        =   -1  'True
  64.          Caption         =   "L
  65. neas a imprimir"
  66.          BeginProperty Font 
  67.             Name            =   "MS Sans Serif"
  68.             Size            =   8.25
  69.             Charset         =   0
  70.             Weight          =   700
  71.             Underline       =   0   'False
  72.             Italic          =   0   'False
  73.             Strikethrough   =   0   'False
  74.          EndProperty
  75.          Height          =   195
  76.          Index           =   1
  77.          Left            =   240
  78.          TabIndex        =   6
  79.          Top             =   1200
  80.          Width           =   1455
  81.       End
  82.       Begin VB.Label lblTitulo 
  83.          AutoSize        =   -1  'True
  84.          Caption         =   "Encabezados"
  85.          BeginProperty Font 
  86.             Name            =   "MS Sans Serif"
  87.             Size            =   8.25
  88.             Charset         =   0
  89.             Weight          =   700
  90.             Underline       =   0   'False
  91.             Italic          =   0   'False
  92.             Strikethrough   =   0   'False
  93.          EndProperty
  94.          Height          =   195
  95.          Index           =   0
  96.          Left            =   240
  97.          TabIndex        =   5
  98.          Top             =   360
  99.          Width           =   1155
  100.       End
  101.    End
  102. Attribute VB_Name = "frmPrinc"
  103. Attribute VB_GlobalNameSpace = False
  104. Attribute VB_Creatable = False
  105. Attribute VB_PredeclaredId = True
  106. Attribute VB_Exposed = False
  107. Option Explicit
  108. Const MargenDer = 500   'El espacio de los m
  109. rgenes en Twips
  110. Const MargenIzq = 500
  111. Const MargenInf = 1500
  112. Const MargenSup = 500
  113. Sub FontEncabezado()
  114.    'Este Sub configura la fuente del encabezado
  115.    Printer.FontName = "Times New Roman"
  116.    Printer.FontSize = "50"
  117.    Printer.ForeColor = QBColor(4)  'Rojo
  118. End Sub
  119. Sub FontTexto()
  120.    'Este Sub configura la fuente del texto
  121.    Printer.Font = "Arial"
  122.    Printer.FontSize = "12"
  123.    Printer.ForeColor = QBColor(1)    'Azul
  124. End Sub
  125. Sub ImprimirEncabezado(Texto As String)
  126.    Printer.CurrentX = MargenIzq  'Margen superior izquierdo
  127.    Printer.CurrentY = MargenSup  '
  128.    Printer.Print Texto          'Imprimimos el encabezado
  129.    'Imprimimos una l
  130. nea debajo del encabezado
  131.    Printer.Line (MargenIzq, Printer.CurrentY + 100)-(Printer.Width - MargenDer, Printer.CurrentY + 100)
  132.    'Dejamos un espacio
  133.    Printer.CurrentY = Printer.CurrentY + 100
  134. End Sub
  135. Private Sub cmdDetener_Click()
  136.    Printer.KillDoc   'Cancelamos la impresi
  137. End Sub
  138. Private Sub cmdImprimir_Click()
  139.    Dim i As Integer
  140.    'Vamos a imprimir en colores
  141.    Printer.ColorMode = 2
  142.    'Imprimimos el primer encabezado
  143.    FontEncabezado
  144.    ImprimirEncabezado txtEncabezados
  145.    FontTexto
  146.    For i = 1 To Val(txtLineas)
  147.       'Chequeo que no se pase del final de la hoja
  148.       If (Printer.CurrentY + Printer.TextHeight("A")) > (Printer.Height - MargenInf) Then
  149.          'Pagina nueva!
  150.          Printer.NewPage
  151.          
  152.          FontEncabezado
  153.          ImprimirEncabezado txtEncabezados
  154.          FontTexto
  155.       End If
  156.       
  157.       'Imprimimos una l
  158.       Printer.CurrentX = MargenIzq
  159.       Printer.Print "L
  160. nea n
  161. mero" + Str$(i)
  162.    Next i
  163.    'Ahora si, mandamos a imprimir todo
  164.    Printer.EndDoc
  165. End Sub
  166. Private Sub cmdSalir_Click()
  167.    End
  168. End Sub
  169.